10 FORA=49152TO49539:READB:POKEA,B:C=C+B:NEXT
20 IFC<>51719THENPRINT"[147]DATA ERROR":STOP
30 PRINT "[147]SYS 49155: TO INITIALIZE":PRINT "SYS 49152: FOR A REPORT"
40 DATA 76,13,193,32,41,192,162,14,160,0,169,255,145,251,136,208,251,230,252
50 DATA 202,208,246,169,50,141,8,3,169,192,141,9,3,169,255,141,129,193,141
60 DATA 130,193,96,169,0,133,251,169,194,133,252,96,32,41,192,165,58,201,255
70 DATA 240,98,205,130,193,208,7,165,57,205,129,193,240,86,160,1,185,57,0
80 DATA 153,129,193,136,16,247,160,0,177,251,200,49,251,201,255,208,17,165,58
90 DATA 145,251,136,165,57,145,251,32,160,192,32,160,192,208,47,160,0,177,251
100 DATA 217,57,0,208,32,200,192,2,208,244,32,160,192,208,28,32,88,193,169
110 DATA 99,160,193,32,30,171,166,57,165,58,32,205,189,162,128,108,0,3,32
120 DATA 64,193,76,82,192,76,228,167,160,2,177,251,24,105,1,145,251,208,7
130 DATA 200,177,251,105,0,145,251,96,169,0,141,131,193,32,41,192,160,0,177
140 DATA 251,200,49,251,201,255,240,65,160,1,177,251,153,129,193,136,16,248,160
150 DATA 4,177,251,56,237,129,193,200,177,251,237,130,193,176,33,169,1,141,131
160 DATA 193,160,7,177,251,72,136,16,250,160,4,104,145,251,200,192,8,208,248
170 DATA 160,0,104,145,251,200,192,4,208,248,32,64,193,76,187,192,173,131,193
180 DATA 208,167,96,32,179,192,32,41,192,169,13,32,210,255,160,0,177,251,170
190 DATA 200,49,251,201,255,240,25,177,251,32,78,193,169,58,32,210,255,200,177
200 DATA 251,170,200,177,251,32,78,193,32,64,193,208,214,76,88,193,165,251,24
210 DATA 105,4,133,251,165,252,105,0,133,252,96,140,131,193,32,205,189,172,131
220 DATA 193,96,169,228,141,8,3,169,167,141,9,3,96,13,84,79,79,32,77
230 DATA 65,78,89,32,69,88,69,67,85,84,73,79,78,83,32,79,70,32,76
240 DATA 73,78,69,32,0,0,0,0